APPLE II UTILITY PACK 



By Roger Wagner 



Now ail the routines most -sec : - programmers are in one convenient set! A real software bargain 
with all 11 programs in one package a: less than S2.CC per program! Here’s what you get: 



RENUMBERING — Includes special features like printer output of old/ new line #’s for later 

INTEGER & APPLESOFT reference, and warns of unusual conditions, like ‘GOTO A*10’ in 

Integer. This is one of the few renumber routines that is non- 
destructive to machine language code contained in Applesoft 
listings! 



APPEND — Easily join program modules together. 

INTEGER & APPLESOFT 



ADDRESS/HEX CONVERTER Converts ail of the Apple’s address formats including high- and 

low-order bytes for pointers. 



LINE FIND - 
INTEGER & APPLESOFT 



Find the location of any BASIC line in memory for repairing garbaged 
programs, or inserting HIMEM:, CLR, etc. directly into a listing. 



VAL( ) & STRSf ) 



Instructions for simulating these Applesoft functions in Integer 
BASIC. Convert strings to numbers and back again with these. 



SCREEN PAGE MAP 



Put any character anywhere on the screen by ‘POKE’ing directly 
into memory the proper values, given by this program. 



MOVE 



Move blocks of memory up or down any number of bytes from Integer 
BASIC or Applesoft. 



The extensive documentation alone is worth the price! It includes an in-depth explanation of the internal 
workings of Integer BASIC and Applesoft to allow you to do things you never thought possible on your 
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APPLE II UTILITY PACK 

Description and Instructions for Program. Use: 



ADDRESS CONVERSION : (3.8K) 

On the Apple II, an address (or any number for that matter) can be 
expressed in four ways. In Integer BASIC, all numbers above 3276? are 
expressed as a negative number. In Applesoft, any address from — 65535 
to +65535 can be directly stated. The number also has a hexadecimal form 
(base 16). Last of all, any number up to 65535_can be stored in two bytes 
(such as in the case of line $ f s and address pointers )• 

To use the program, ’RUN ADDRESS CONVERSION' will do the trick. After 
the title banner' appears, press any key to proceed. Then enter any number 
from -65535 to 65535 (or in hex notation, $0 to $FFFF), and it will be 
displayed in all formats. 

Examples; a) Suppose you wanted to know the hex address referred 

1 to" by a ’CALL -936’. When the program asks the number 

to be evaluated, you would enter '-936'. The program 
will return *$FC58’ as the hex address for the routine. 

Also given will be 252 and 88 as the two byte form (dec- 
imal) of the number, and 64600 as the actual decimal 
address. 

b) Suppose you find the numbers *25' and ’175’ as the 

decimal numbers to place in a pair of pointers some- 
where in memory as part of a BASIC program, and. you 
would like to know the address referred to by these. 

When the program asks you for your number, enter a 
•Control -A* only, followed by RETURN.- The program will 
then ask for the High- and Low-order bytes. Enter 175 
and 25 (assuming 175 was the high-order byte) and the 
program will return —20711, 44825 and $aF 19 as the 
various forms of the number represented by those two 
bytes. You will notice that under High- and low-order 
bytes your '175* becomes ’175/$AF’. This corresponds to 
the first two disits of the hex number $AF19. If you 
have the two bytes of an address in hex, it is easy to 
determine the final number by simply putting the two 
together. 

SCREEN FIND ; (4.3K) 

Characters may be directly displayed on the Apple -i-I^s screen by 
•POKE'ing the proper value into memory locations $400 to $7FF for pg. 1 
and $800 “to $BJF for pg. 2. This program will determine the proper 
address in memory and the value to enter there for the desired character. 

To use the program 'RUN SCREEN fINB* in the usual manner. Then enter 
the horizontal and vertical position for the character just as you would 
normally specify a HTAB (from 1 to 40) and VTAB (from 1 to_24) state- 
ment. Then enter the character, and whether it is to be displayed in 
normal, inverse, or flashing mode. The program will then return the 
appropriate memory location, and the decimal and hex. values to put Jaere. 
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The heart of the program is on lines 440 & 450. You may find this of 
u se in other urograms of your own. There are R.EM statements at the end. of 
the program to explain each variable of the equation. In general, the 
eauation returns the mrmory address desired, given the horizontal and vertical 
tab positions. You may find the article, 'An Apple II Page 1 Map* by M.R. 
Connolly Jr. in Dec. -Jan '79 (pg. 8-41) in MICRO magazine to be of interest. 

If you are interested in outputting characters to the screen from machine 
language, you may be interested in using the BASCALC routine in the Monitor 
at $FBC1. Just put the vertical position (from 0 to 39) in the Accumulator, 
then JSR to $FBC1. The routine will deposit the low- and hi gh -order . bytes 
for the first position of the horizontal line at that vertical spot in $28 
and $29* respectively (40 and 41 decimal). Then add whatever the horizontal 
displacement is to that value, (starting at 0 for the left margin, 39 for 
the right). 

It is beyond the scope of this documentation to go inot further detail 
on how to use machine language, but perhaps the above hints will be helpful. 

If you would like to print on Page 2 of text from BASIC, you may wish 
to experiment with the program below: 



1(3 L0MEM: 3072 
20 DIM A$(10) 

30 FOR 1=2048 to 3071 : POKE I,l60: NEXT I 
40 CALL -936 

50 INPUT" H,V ON PC. 2" ,H,V 
60 YTAB V: TAB H: PRINT 
70 POKE -16299,0 
80 POKE 41, PEEK (41 ) + 4 
90 PRINT "THIS IS A TEST"; 

100 INPUT A$ 

110 POKE -16300,0 
120 PRINT : GOTO 50 

This is inspired by Andy Hertzf eld's article in the San Franci sc o. Apple 
Core's Newsletter, The Cider Press , /ol.2. No. 2. Basically the idea is to 
let the Monitor calculate a horizontal and vertical position (#60). Then 
change the pointer in 41 to page 2. (#80). Thereafter, everythingjprinted will 
appear on cage 2 until the next carriage return, line feed, or /TAxs. Each time 
you begin a new line the POKE must be repeated. 

If you are unsure of how to put L0MEM: into a program, see the section on 
the internal structure of Integer in this documentation. Otherwise, omit this 
line and type it in manually before running the program. #30 clears. pg. 2 by 
POKEing the* value for a space into each location. #70 switches the display to 
page 2, #110 back to page 1. 

You may wish to re-write the Monitor's scrolling routine in a location m 
RAM for use with page 2. Another of my programs, 'ROGER'S EASEL' makes, use of 
this to allow the user to access help instructions at any time during the pro- 
gram. You might want to examine the machine language portion at the end of that 
program to see how page 2 can be used for this. 
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RENUK3ER-I : (9.4K) 

This utility renumbers all line #'s from 0 to 65023 at the increment 
of your choice in any Integer Basic program. You may renumber with new line 
#'s as high as 65535* The reason for the limit on numbers you can change is 
to protect copyright statements in other programs from being changed or 
deleted. You may wish to put your own statements at the end of your programs 
and number them at 65535 with this program. 

During the renumbering process, all GOTO's, etc. are also renumbered, 
and you are alerted to any referenced lines not in the program. You are 
also alerted to any GOTO's, etc. followed by a variable or expression. 

To use the program, your program should already be in memory. (LOAD 
it normally if it is not.) Then type 'EXEC RENUMBER -I'. The disk drive will 
come on and you will see a series of prompts on the screen. 'The title banner 
will then appear, at which time you can press any key to proceed. 

The program will ask where in your program you would like the renumbering 
process to start at, what new line f to put there, what amount to increment 
each succeeding line, and where to end the renumbering at. If you wish to 
have several line numbers with the same # you may do this by giving an incre- 
ment size of *0*. (Such as for copyright statements at the end of programs) 

You may default on these inputs with the following results: Pressing 

'RETURN' only for the starting point will default to '0*. The new number to 
be put there defaults to '10' as does increment size. The line to end on will 
default to 65023. To renumber an entire program, starting with '10* and 
incrementing by *10* s, just press 'RETURN* alone in response to each question. 

Because the greates amount of time spent by the routine is searching 
for GOTO's, etc. if you are renumbering only REMark statements you may elect 
not to do this search and renumber line #'s only. This question when asked 
defaults to searching for GOTO's. 

If for some reason (such as hitting 'RESET' or 'Control-C') the program 
is halted, you may recover your original program (partly renumbered) with a 
♦GOTO 570'. You may re-activate the routine with a 'CALL RN* or a CALL to 
the number given when the program terminated. This is of course, providing 
you don't change too many lines in your program so as to over-write the 
location of the renumbering program. (About 500 bytes below your program) 

The renumbering takes about k0 seconds per IK of your program to do the 
complete renumbering. 

RSNUMBER-I ( S ) : (5.2K) 

This program is a shorter version of the above, intended for use in 
machines with 16 or 32K of memory. It will NOT work in a 4SK machine. Other- 
wise, it is identical in function and use to the above program. 
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R3NUMBER-A /S : (5.3K) 

'EXEC RENUMBER-A/S’ to use this program* The main difference between 
this and the Integer version (besides the obvious fact that this is 
intended for use with Applesoft programs) are first, that the limit to 
line numbers you can change is 65000 • Some other features include a display 
of the lines it is currently working on (more entertaining than watching a 
blank screen...) and more sophistication in checking for renumbering problems, 
such as new numbers going out of range, or an overlap or conflict when you 
are renumbering just portions of a program. If you halt the program with a 
•Control-C’ you will immediately recover your program, (again, partly re- 
numbered). If you should happen to hit ‘RESET’ you may recover your program 
with a ’Control-C* followed by 'C-OTO 760*. 

You may default on any question by pressing ’RETURN' alone. Renumbering 
takes about If) seconds for each IK of your program length. 



LINE FIND-I ; (3.9K) 

'EXEC LINE FIND-I* to use. Enter the line number you're looking for 
and this routine will return the decimal and hex. addresses of that line's 
location in memory. Your program should already be in memory before using 
this routine. Later sections in this documentation (Internal structure of 
Integer / Applesoft) more fully explain varius uses of this and the Apple- 
soft version of these programs. 

LINE FIND-A/S ; (3.2K) 

•EXEC LINE FIND-A/S* to use. The same in function and use as the above 
program, but for use with Applesoft programs. 

APPSND-A/S : (0K) 

This routine will allow you to add one Applesoft program directly to 
the end of another. This is especially useful for adding copyrights and often 
used sub-routines to the end of programs. To use, normally load your first 
program (to be at the beginning of the final version) if it is not already in 
memory. Then set A$ = 'NAME* where NAFE is the name of the other program to 
be added onto the end of the first program. This second program must already 
be on the same disk as the APPSND-A/S routine. Then type ’EXEC APPEND-A/S* 
and the program on the disk will be appended to the one currently in memory. 

If you have too many programs to be appended to be put on the utility 
disk you may use the APPEND FILE CREATE program which will put the APPEND 
’EXEC* file on any disk you wish. The program is self-documenting. 

APFEND-I : (0K) 

This is very similar to the above routine. However, since Integer is 
structured a little differently, programs appended to ones already in memory 
will appear at the beginning of the final listing, as opposed to at the end 
as in Applesoft. You must also remember to dimension A$ before setting it 
equal to the name of the program to be appended. 'DIM A$(*f0)' in the immediate 
mode will be sufficient. APPEND BILE CREATE will also create the Integer 
Append file on any disk of your choice. 
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YAL : 

This is included as a demonstration of how to simulate Applesoft's 
VAL( ) function in Integer. You can use lines 32005 and 32010 as a sub- 
routine, or out them directly in the program where you need the VAL( ) 
function at that point. VAL( ) converts a string to a number. See the 
Applesoft Reference Manual, pg. 59, for further details. 

STR$ : 

Similar to above, but this time a simulation of Applesoft's STR$( ) 
function. (Converts a number to a string.) 



MOVE : 

A machine language routine to move blocks of memory up or down, by 
any increment you wish, even one byte. There is a routine in the Monitor 
similar to this, but it will only move blocks down if you wish to move only 
a few bytes. (It will work in either direction providing the distance moved 
is greater than the length of the block). The other drawback is that the 
Monitor routine is difficult to execute from Applesoft. The routine on this 
Utility Pack can be used from either Integer or Applesoft. It is useful, for 
example, for moving text or graphics (High- or Low-res.) from pg. 1 to pg. 2 
or back. See the green Applesoft Manual, pg. 126 for appropriate addresses 
for this. Also, the Sept. 1978 issue of CONTACT, the Apple II newsletter 
discusses this. The machine language routine resides from $300 to $33F* 

To use the MOVE routine from within a program, some pointers must be 
set for the beginning and end of the block you wish to move. In general, 
these are: 



(1) POKE 60, old start addr. MOD 256 
POKE 61, old start addr. / 256 

(3) POKE 64, new end addr. MOD 256 
POKE 65, new end addr. / 256 



(2) POKE 62, old end addr. MOD 256 
POKE 63 , old end addr. / 256 

(4) POKE 66, new start addr. MOD 256 
POKE 67 , new start addr. / 256 



To execute the move: (assuming MOVE has already been ’BLOAD'ed) 



'CALL 768 * for a move up (#4 not needed for this) 

'CALL 817* for a move down (#3 not needed for this) 

Since Applesoft does not have the MOD and '/' functions of Integer, you 
will need to make use of the following relationships: 

X MOD Y (in Integer) is equivalent to... X - INT(X/Y)*Y (in Applesoft) 

X / Y is equivalent to... INT(X/Y) 



UPDATES AND COPRSCTIONS: Be sure to mail your reply card so as to be notified 

of any changes or additions on these programs. Any comments or suggestions 
you may have as to improvements in the programs is also appreciated. 

Please include them on the response card, or call or write the above address. 
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LINE FIND - I (AND RELATED TOPICS..,) 



LINE FIND-I is designed to allow you to manipulate program lines 
at the machine level. Before going into this however, a brief discussion 
of the way INTEGER Basic program lines are formatted is in order. 

INTERNAL STRUCTURE OF INTEGER BASIC 



First of all, INTEGER stores the values for the beginning and ending 
ooints of any program in certain locations in memory called ’pointers'. 
Pointers are” almost always located in hex addresses $00 to $FF (0 to 
255 decimal). This area of memory is often call the "zero page" of memory. 
Depending on what language you're using (Monitor, lNTEGfiR or APPL&SOrT), 
certain addresses are~ always used for a given pointer. In INTEGER, for 
instance, hex $CA and $CB (dec. 202 and 203) hold the starting address of 
the program currently in memory. If you are in Monitor and you type in 
'CA CB (CR)' you will get something like this: CA- F5 This tells you 

CB- BF 

that stored in location $CA is the value $F5 and in $CB is $BF. These 
two addresses taken together tell you the starting address of the program 
currently in memory is $BFF5. (Note that the leading 2 digits are reversed 
with the last two digits as far as how they are stored in $CA and #CB. 

This is what is meant by the terms "high- and low-order bytes'*. It takes 
two bytes to store an address in the Apple under most circumstances. The 
first part of the address ($HF in our example) is called the high-order 
byte because it represents the larger part of the number. (Just as in the 
decimal system, for the number ' 15 ', the '1* represents a greater value 
than the *5'.) The second part of the address ($F5) is called the low- 
order byte. In the pointers, the low-order byte comes first followed by 
the hish-order byte. 

The end of a program is similarly stored in the zero-page of memory. 
For INTEGER, this is at hex $hC and $hD. (dec. 76 and 77) In the Monitor, 
typing in '4C 4D (CR)' might get you something like this: 4C- 00 This 

4D- C0 

would indicate that the program ended at the address $C000. 

Now, how are the individual lines formatted? The best way to find 
this out is by example, aided by the page included in the documentation. 
This page has "INTEGER TOKENS" in the upper left corner. 

For starters, make sure your Apple is properly initialized by hitting 
'RESET', followed by a *Control-B' to get into INTEGER Basic. Now type in 
this simple urogram: 10 GOTO 20 

20 END 

LIST and check to make sure it is identical to the example. Now to 
examine this at the machine level, type in 'CALL -151* or hit 'RESET' to 
get into the Monitor. Now find the beginning and end of the program by 
looking at the pointers at $CA,C3,4C and RD. 
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Do this by typing in ’CA C3 4C 4D (CR)'. This should yield: 



00CA- F3 
00CB- 3F 
004C- 00 
004D- C0 



(This is for a 48K machine. If you have a 16K 
or 32K the numbers st $C3 and $4C will change 
accordingly.. . ) 



This tells us the program resides from $BTF3 to $C000 in memory. The 
program is short enough we can examine its entirety by typing in: 
’BFF3.C000 (CR)* This should give: 



Referring to the two pages of INTEGER tokens, we can decode this data 
to see how the program is stored. The reason they are called 'tokens’ is 
because often-used parts of a program, namely the commands and statements, 
are encoded in a single number for the entire word. For example, every- 
where you have the command ’GOSUB* in a program, the computer stores this 
as a hexadecimal number, $5C. This provides a great space savings by using 
this technique. A few other fundamentals: 1) Every line begins with one 
byte that gives the length of the tokenized line. 2) The next two bytes 
store the line # in low- and high-order bytes. In fact, every constant or 
line # in INTEGER is stored using the low- and high-order bytes. 3) Each 
line has a ’01' at the end of the line to indicate the end.. 

Let's look at the program itself. At $BT F3 • the first byte is '08’. 
This tell the computer (and us) that the line is a total of eight bytes 
long. The next two bytes, *0A* and ’00' are the low- and high-order bytes 
for "the line #, in this case '10'. You may use the program "ADDRESS /HeX 
CONVERTER" to determine the low- and high-order bytes for any number. The 
next byte, »5F* is the token for 'GOTO'. (Check 3rd column, first pg. to 
confirm) If vou had typed 'GOSUB 20* this would have been '5C'. Now a bit 
of a peculiarity. The' next byte is '32'. This is the ASCII value for the 
digit '2', the first digit of the number following the 'GOTO' in your 
program. If you had written 'GOTO 3000* this byte would have been *B5'» 
the ASCII value for '5'. The following two bytes store the number '20* 
in the low- and high-order bytes '14' and '00'. Every constant and ref- 
erenced line number therefore takes a total of 3 bytes to store it in 
INTEGER Basic. The last byte of the line is the '01' at $B1FA. This 
indicates the end of the first line. 

‘The format continues in a similar pattern for the next line. *05* 
shows the line is 5 bytes long. '14' and *00' encode the line number, in 
this case '20'. *51* is the token for 'END' and *01' is the end of the line, 
and in this case, the end of the program. Note that the pointer at $4C,4D 
always points at the next byte after the end of the program. 



SFF3- 08 0A 00 5F B2 

HFF8- 14 00 01 05 14 00 51 01 

C000- 0D 



(Do not be concerned if the value at 
$C000 is r.ot *0D*. This is not actually 
part of your program, but the very next 
byte after it...) 
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SOME USES CF THE LINE FIND PROGRAM 



First, an experiment. Use Control-B to re-enter INTEGER Basic and 
type in 'NEW*. Suppose you were writing a program, and you wanted to clear 
the variables to '0' at some point. Simple enough, use the CLR command, 
right? Not quite. Type in the following line: '10 CLR' 

Having difficulty? ‘This is because INTEGER Basic does not directly 
accept CLR as a legal syntax when typing in your line. This does not, 
however, mean that you are out of luck. There is a way! 

Type in this: *10 REM' Now find out where your program is 

at in memory by looking at the pointers as discussed earlier. Type in 
'CALL -1,51* or hit 'RESET* to enter the Monitor. Now enter 'CA CB RC (CR)* 

This will yield the beginning and ending address of the program. (And 
in this case of the line itself.) List out the bytes by typing in the 
starting address, a period ('.'), and then the ending address. (Remember 
that the low- and high-order bytes are reversed when looking at $CA,CB and 
$^C,4D.) On a 48K sytem this would yield: 

BFFB- 05 0A 00 <h 
C000- 0D 

'5D* is the token for the 'REM' part of the line. What we need to do 
is to change this to '0C' for 'CLR'. There are two ways to do this. The 
first is to recognize that 'BFFB' is the address of the first byte shown 
on that line, namely the '05'. Counting over, we see that the '5E* is at 
hex address $EFFE. Now, change the contents of this location by typing in 
•3FFF: 0C (CR)». 

If you are uncomfortable with the hex notation, there is a second way. 
Using the 'ESCAPE' and 'D'key, move up until the cursor is on the same 
line as the 'BFFB'. (It should probably be on the first 'F * in 'BFFB') 

Now use the 'ESCAPE' and 'B* key to move to the left one space. The cursor 
should now be on the '3*. Now use the right-arrow key to copy over the 
addrss. When the cursor is over the hyphen ('-*) enter a colon (':*). 

We have just simulated typing in 'BFFB: *. Now use the right-arrow key 
again to copy over everything on the line. Stop when you get to the '5D'. 

When the cursor is over the *5* in *5D' type in '0C* and press 'RETURN'. 

Using either method we should now have an *0C' where the '5B* used 
to be. You may want to list it to check by typing 'BFFB.C000 (CR)'. 

Now 'Control-C' to Basic and LIST. The program should now be: 

10 CLR 

Just what we wanted! HIMEM: and LCKEM: can also be entered in a 
similar fashion. The main restraint to replacing tokens is that whatever 
you type in for the temporary values must take up the same number of tokens 
as what you are going to replace it with. The new tokens must also still 
have the correct syntax, and since you are defeating having the computer 
check the syntax you must do this yourself. You must make sure that the 
new set of tokens taken as a whole for that line are consistent with what 
the Apple expects to find there. 
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For HIKEM: and LOMSM: 'PR#' may be used as your temporary statement. 
For instance, to end up with a line with 'HIMEM: 8192* in it, first type 
'PR# 8192* in the appropriate spot. Then replace the '7E' token for PR# 
to a »0' or »10* for 'HIKEM: ' . 

After all this, where does LIME FIND fit in? In our examples, the 
line was easy to find because the programs were very short. However, for 
a long program it would be very tedious to try to find a line in the middle. 

Solution? Just use the LINE FIND program, telling it what line # 
you're looking for. It will find the line, give you the hex starting and 
ending addresses of that line, and leave you in Monitor to list out the 
bytes. Just type in the starting address, a period, and then the ending 
address. Now you can alter anything you wish. 



RECOVERING GARBAGES PROGRAMS 

Occassionally during transfer of a program, or because of a faulty 
RAM chip, a program will drop a bit somewhere. If the alteration is in 
the middle of a line, where you had a 'PRINT* will suddenly become 'HIMEM: ' 
or some similar item. You should now be alble to understand how a random 
error can produce a seemingly intelligent series of letters. What was 
changed was the single token for 'PRINT', it now being interpreted as 
•HIMEM' or whatever^ This is usually easily fixed however by just retyping 
the line. 

The problem comes when the alteration occurs in a more crucial place. 
Namely, one of the first three or the last byte. If the first byte is 
changed, the program will LIST out o.k., but 'hang* on this line when you 
attempt a 'RUN'." If either the second or third bytes are changed the 
line # of that line will be altered, possibly disturbing the logic of execu- 
tion of the program, or defeating GOTO's referenced past that line. If the 
last byte is changed, the two lines on either side of the *01' become merged 
usually with the second line listing as gibberish. (The effect of having 
the syntax of tokens disturbed) In fact, the alteration of this one byte 
can make enough of a difference to have the entire program from that point 
on list as nonsense. 

LINE FIND can be used on occasion to recover damaged programs because 
you can look directly at the part of memory where the problem is. There is 
no standard method for repair, but in general follow this procedure: 

First determine which of the four types of problems above have occurred 
If you have just a bad byte within the line retype it. If the line f has 
been changed, several things may happen. If the line # is lower than the 
other line #'s preceeding it, you will not be able to delete it. If it 
equals a line # already there before it, attempting to delete it would only 
delete the other line. In general, the solution is to use the LINE FIND 
program to find the line just ahead of the damaged one. ihen go in and 
look at the next 3 bytes after the *01* at end of the one you found. Bytes 
2 and 3 are the altered line # bytes. Chances are only one of these two 
has been altered. Restore these two to the low- and high-order bytes for 
the line # you want there and your problem should be solved. (Use ADDRESS/ 
HEX CONVERTER if you are unsure what the two bytes should be for the line #) 
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If the system •hangs* on a given line, use the LINE FIND program to 
find that line number. The ending address that it gives you will not be 
correct but the starting address will be. Then examine the part of memory 
after the starting address (for up to 2 55 bytes) to try to determine where 
that line actually ends. Things to look for are the * 01 * at the end of the 
line (although this may occur as part of a constant or referenced line # 
as discussed earlier) or use the ADERESS/HEX CONVERTER to determine the 
low- and high-order bytes for the number itself of the next line, and look 
for these. When you have determined where the line ends, you must then 
determine its length and put this value back into the first byte. You may 
find the built-in hex subtraction routine in Monitor helpful. Subtract the 
starting address (in hex) from the ending address to determine the length. 

If the problem is merged lines then the last bit of the line has been 
changed from *01* to something else. Use the LINS FIND program to find 
where the line was supoosed to end and put an *01* there. This should do it. 

These techniques should solve many of the problems encountered in 
damaged programs. It may seem a bit involved, but it is easier than retyping 
an entire orogram - or not having one at all if it’s one you bought I. It 
does take a little effort and careful thought, but can be very educational 
in the orocess. Good luck! 

Both LINE FIND-I and LINE FINB-A/S are good for learning how lines in 
either language are tokenized. To experiment, type in a line, then run 
LINE FIND. After listing out the line in Monitor, use' 'Control-C* to 
return to Basic and LIST the line to compare the two. Then make any changes 
you wish and execute the appropriate *CALL ...' to re-activate LINE FIND. 

You can do this over and over again to see just how each kind of line 
is formatted. 
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Dec. 


Hex, 


ClUcLI* • 


Dec, 


Hex, 


Char. 


Dec . 


Hex. 


Char. 


0 


0 


HIMEM: 


43 


2B 


1 


85 


55 


FOR 


1 


1 


(End of Line) 


44 


2C 


t 


86 


56 


SZ 


2 


2 


(Underscore) 


45 


2D 


( 


87 


57 


TO 


3 


3 


: (Stmt sec. ) 


46 


2E 


PEEK 


88 


58 


STEP 


4 


4 


LOAD 


47 


2F 


RND 


89 


59 


NEXT 


5 


5 


SAVE 


48 


30 


SGN 


90 


5A 


9 


6 


6 


CON 


49 


31 


ABS 


91 


5B 


RETURN 


7 


7 


RUN 


50 


32 


PDL 


92 


5C 


GOSUB 


8 


8 


RUN 


51 


33 


RNDX (?) 


93 


5D 


REM 


9 


9 


DEL 


52 


34 


( 


94 


5E 


LET 


10 


A 


, (for DEL) 


53 


35 


+ 


95 


5F 


C-CTC 


11 


B 


NEW 


54 


36 


- (Signs) 


96 


60 


IF 


12 


C 


CLR 


55 


37 


NOT 


97 


61 


PRINT (* ") 


13 


D 


AUTO 


56 


38 


( 


98 


62 


PRINT (X,X$) 


14 


E 


, (for AUTO) 


57 


39 


sz 


99 


63 


PRINT (Null) 


15 


F 


MAN 


58 


3A 


# 


100 


64 


POKE 


16 


10 


HIMSM: 


59 


3B 


LEN( 


101 


65 


1 


17 


11 


LCMEM: 


60 


3C 


ASC( 


102 


66 


COLCR= 


18 


12 


+ 


61 


3D 


SCRN( 


103 


67 


PLOT 


19 


13 


«» 


62 


3E 


9 


104 


68 


» 


20 


14 


* 


63 


3F 


( 


105 


69 


HLIN 


21 


15 


/ 


64 


40 


$ (String) 


106 


6a 


• 


22 


16 




65 


41 


$ 


107 


6b 


AT 


23 


17 


# 


66 


42 


( 


108 


6c 


VL IN 


24 


18 


> = 


67 


43 


9 


109 


6d 


• 


25 


19 


> 


68 


44 


9 


110 


6E 


AT 


26 


1A 


< = 


69 


45 


t 


111 


6f 


VTAB 


27 


13 


<> 


70 


46 


f 


112 


70 


= (String) 


28 


1C 


< 


71 


47 


9 


113 


71 


SS 


29 


ID 


AND 


72 


48 


9 


114 


72 


) 


30 


IE 


OR 


73 


49 


t 


115 


73 


) 


31 


IF 


MOD 


74 


4A 


9 


116 


74 


LIST (From-to) 


32 


20 


A 


75 


4B 


TEXT 


117 


75 


9 


33 


21 


+ 


76 


4C 


GR 


118 


76 


LIST (Entire prog.) 


34 


22 


( 


77 


4D 


CALL 


119 


77 


POP 


35 


23 


f 


78 


4E 


DIM (String) 


120 


73 


NODS? (String) 


36 


24 


THEN (line #) 


79 


4F 


DIM (Variable) 


121 


79 


NODSP (Var.) 


37 


25 


THEN (Strait) 


80 


50 


TAB 


122 


7A 


NOTRACE 


38 


26 


, (String) 


81 


51 


END 


123 


7B 


DSP (String) 


39 


27 


, (Variable ) 


82 


52 


INPUT (String) 


124 


7C 


ESP (Var.) 


40 


28 


** (Beginning) 


83 


53 


INPUT ($ or Var .125 


7D 


TRACE 


41 


29 


” (Ending) 






w/ " ", 


) 126 


7E 


PR# 


42 


2A 


( 


84 


54 


INPUT (Var.) 


127 


7F 


IN# 



ii 
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Dec. 


Hex. 


Char. 


Dee, 


128 


80 


Sdc. c 


171 


129 


81 


A G 


172 


130 


82 


3° 


173 


131 


83 


C c 


174 


132 


84 


B G 


175 


133 


85 


S c 


176 


134 


86 


F c 


177 


135 


87 


G c 


178 


136 


88 


H c 


179 


137 


89 


l c 


180 


138 


8 A 


J c 


181 


139 


83 


K° 


182 


140 


8 C 


L c 


183 


141 


8 D 


M° 


184 


142 


8 E 


N° 


185 


143 


8 F 


C c 


186 


144 


90 


pC 


187 


145 


91 


Q c 


188 


146 


92 


R c 


189 


14? 


93 


S c 


190 


148 


94 


TO 


191 


149 


95 


U c 


192 


150 


96 


V° 


193 


151 


97 


w c 


194 


152 


98 


x c 


195 


153 


99 




196 


154 


9A 


Z c 


197 


155 


9B 


Esc. or c c 


198 


156 


9C 


\c 


199 


157 


9D 


1° 


200 


153 


9E 


A C 


201 


159 


9F 


C 


202 


160 


A0 


Space 


203 


161 


A1 


t' 


204 


162 


A2 


1* 


205 


163 


A3 


4 


206 


164 


a4 


$ 


207 


165 


A5 


$ 


208 


166 


a 6 


& 


209 


167 


A7 


« 


210 


168 


A 8 


c 


211 


169 


A9 


) 


212 


170 


AA 


* 


213 
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Hex. 


Char. 


Dec. 


Hex. 


Char . 


A3 


+ 


214 


D6 


V 


AC 


9 


215 


D7 


w 


AD 




216 


D8 


X 


AE 


• 


217 


D9 


I 


AF 


/ 


218 


DA 


z 


30 


0 


219 


D3 


£ 


B1 


1 


220 


DC 


\ 


B2 


2 


221 


DD 


2 


33 


3 


222 


DE 


A 


E4 


4 


223 


DF 




B5 


5 


224 


E0 


Space 


36 


6 


225 


El 


! 


B? 


7 


226 


E2 


» 


38 


8 


227 


E3 


t 


39 


9 


228 


S4 


$ 


3A 


+ 

• 


229 


E5 


$ 


3B 


• 

t 


230 


S6 


& 


5C 


< 


231 


E7 


» 


BD 


s 


232 


E8 


( 


BE 


> 


233 


£9 


) 


BF 


? 


234 


EA 


* 


C0 


@ 


235 


EE 


+ 


Cl 


A 


236 


EC 


9 


C2 


3 


237 


ED 


- 


C3 


C 


238 


EE 


• 


C4 


D 


239 


EF 


/ 


C5 


E 


240 


F0 


0 


C6 


F 


241 


FI 


1 


C7 


G 


242 


F2 


2 


C8 


H 


243 


F3 


3 


C9 


I 


244 


F4 


4 


CA 


J 


245 


F5 


5 


C3 


K 


246 


F6 


6 


CC 


L 


247 


F7 


7 


CD 


M 


248 


F8 


8 


C3 


N 


249 


F9 


9 


CF 


0 


250 


FA 


• 


D0 


P 


251 


FB 


• 

9 


D1 


Q 


252 


FC 


< 


D2 


R 


253 


FD 


- 


D3 


S 


254 


FE 


> 


D4 


T 


255 


FF 


? 


D5 


U 
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(k) 
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On) 

(n) 

(o) 

(p) 

(q) 

(r) 

(s) 

(t) 

(u) 

(v) 

(w) 

(x) 

(y) 

( 2 ) 

{ 

/ 

} 
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INTERNAL STRUCTURE OF APPLESOFT 

This section will deal with how Applesoft is formatted as opposed to 
INTEGER. It will be assumed that you have already read the material on 
INTEGER, or are fairly familiar with how INTEGER is set up. For a list 
of Applesoft Tokens, see the green reference manual, pgs. 138,139 and 
121. The ASCII values given on 138,139 are the same as the tokens used 
to encode these characters in memory. 

The first difference between the two languages is the location of 
the beginning and end of program pointers. In Applesoft, the beginning 
is held in $ 6 ? and $68 (dec. 103,104) and the end in $Ai and $B0 (dec. 
175,176). Get Apolesoft up and running, then type 'NEW*. Now type in 
the following program: '10 GOTO 20' 

•20 END* 

LIST to make sure you have done this correctly. Now type in 'CALL -151' 
to get into Monitor. Find the beginning and end of the program by typing 
'67 68 AF B0* (carriage return will be assumed from now on unless other- 
wise noted). On a 48K system this will give: 

0067- 01 (Note: If you have Applesoft in RAM the 

0068- 08 starting address will probably be $3001 

00AF- 12 and end at $3012) 

00B0- 08 

List out this range with '801.812'. This should give: 

0801- 09 08 0A 00 AB 32 30 (The last two bytes at $811 and 

0808- 00 0F 08 14 00 80 00 00 $812 may be different...) 

0810- 00 00 08 

The first two bytes of the line are an index to the address of the next 
line. In this case they point to $0809. The next two bytes contain the 
line # (*10*). *AB' is the token for 'GOTO*. In Applesoft, constants 
and referenced line r' s are stored with one byte per digit. In our ex- 
amole, the number *20' is stored as '2*,'0*. The end of the line is 
indicated with a *00'. The next line continues in a similar fashion. 

*0F 08* indicates that the next line would start at $ 8 ^F, '14* and 

* 00 ' are the low- and high-order bytes for the line number * 20 *. '80' 

is the token for 'END* and '00* indicates the end of the line. In Apple- 
soft, the end of the line is always easy to spot because it is the only 
time '0' is used. Applesoft knows where the end of the program is, not 
by using the pointer at $AF,B0, but by finding '00 00* when it looks for 
the index at the end of the program. (In this case at $80F and $810.) 

$AF and $B0 must point to an address no smaller than these two zeros, 
but it may point to any address after this. 

(Note: you may find it helpful to use the ADDRESS/HEX CONVERTER to 
determine the hexadecimal values for the tokens on pg. 121 .) 
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The pointers at $AF and $B0 are used when LOABing and SAVEing a program, 
but not during a 'RUN*. In fact, this is very useful because you can store 
any kind of binary data you wish (machine language programs, screen images, 
etc.) within your program space by just pointing $AF and $B0 at a suitable 
location beyond the true end of the program and storing your binary data 
in the created space. You may SAVE and LCAD it just as you would any program 
and the binary data will be carried along right with it. 

Since Applesoft does not check syntax until it RUNs a program, inserting 
what you want in a program line is not a prblem, but recovering garbaged 
programs still is. In Applesoft, if the 1st or 2nd byte is altered, strange 
things may happen. Lines may merge or repeat indefinitely or just dis- 
appear. Usually what happens is that the listing becomes nonsense after 
a certain point. The next two determine the line number, and if these are 
changed it is similar to what can happen with INTEGER. If the last byte 
is changed, the program will LIST properly, but during a ’RUN’ you will get 
a ’SYNTAX ERROR*" on that line for no apparent reason, stopping execution. 

The procedure for fixing these problems is similar to that in INTEGER. 

If the first two bytes are suspected, find the last intelligent line f in 
the listing. Then go into Monitor and look for the '00* at the end of the 
line. 'The index in" the first two bytes of the line should point to the 
address right after the ’00*. 

If the line # is altered, use LINE FIND to locate it if you cannot 
change it directly. If there are no lines before it with the same t you may 
search for it directly with the program. Otherwise, locate the line just 
before it, find the ’00* at the end of that, and then put the correct low- 
and high-order bytes for the line f you want there into the 3rd and 4th bytes 
of the "altered line. If the last byte is bad, use LINS LINE FIND to get the 
ending address and put a *0’ in the last byte of the line. 
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Dec. 


Hex, 


1 Cbar. 


0 


0 


@ c 


1 


1 


A c 


2 


2 


B c 


3 


3 


C c 


4 


4 


D c 


5 


5 


E° 


6 


6 


F° 


7 


7 


G c 


8 


8 


H c 


9 


9 


I c 


10 


A 


J c 


11 


B 


K° 


12 


C 


L c 


13 


D 


M 0 


14 


E 


N° 


15 


F 


0 C 


16 


10 


P° 


17 


11 




18 


12 


R C 


19 


13 


S C 


20 


14 


T c 


21 


15 


U 


22 


16 


yc 


23 


17 


K c 


24 


18 


X c 


25 


19 




26 


1A 


z c 


27 


IB 


ESCape 


28 


1C 


\ c 


29 


ID 


3° 


30 


IE 


A° 

0 


31 


IF 




32 


20 


Space 


33 


21 


t 


34 


22 


If 


35 


23 


# 


36 


24 


$ 


37 


25 


$ 


38 


26 


& 


39 


27 


• 


40 


28 


( 


41 


29 


5 


42 


2A 


♦ 



Dec . Hex . Char . 

43 2B + 

44 2C . 

45 2D - 

46 2E 

47 2F / 

48 30 4 

49 31 1 

50 32 2 

51 33 3 

52 3k 4 

53 35 5 

54 36 6 

55 37 7 

56 38 8 

57 39 9 

58 3A : 

59 3B ; 

60 3C < 

61 3D = 

62 3E > 

63 3F ? 

64 40 ® 

65 41 A 

66 42 B 

67 43 C 

68 44 D 

69 45 E 

70 46 F 

71 47 G 

72 48 H 

73 49 I 

74 4A J 

75 4b K 

76 4C L 

77 4D M 

78 4E N 

79 4F 0 

80 50 P 

81 51 Q 

82 52 R 

83 53 S 

84 54 T 



Dec. 


Hex. 


Char. 


85 


55 


U 


86 


56 


V 


87 


57 


w 


88 


58 


X 


89 


59 


I 


90 


5A 


z 


91 


5B 


t 


92 


5C 


\ 


93 


5D 




94 


5E 


A 


95 


5 l 




96 


60 


Snace 


97 


61 


t 


98 


62 


tf 


99 


63 


# 


100 


64 


$ 


101 


65 


* 


102 


66 


& 


103 


67 


9 


104 


68 


( 


105 


69 


) 


106 


6a . 


♦ 


107 


6b 


+ 


108 


6c 


9 


109 


6d 




110 


6e 


• 


111 


6f 


/ 


112 


70 


0 


113 


71 


1 


114 


72 


2 


115 


73 


3 


116 


74 


4 


117 


75 


5 


118 


76 


6 


119 


77 


7 


120 


78 


8 


121 


79 


9 


122 


7A 


: 


123 


7B 


5 


124 


7C 


< 


125 


7D 


= 


126 


7E 


> 


127 


7F 


? 



( Printer -Iwr .case ) 
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(b) 

(c) 

(d) 

(e) 

(f) 

(g) 

(h) 

(i) 

(j) 
00 
( 1 ) 

(m) 

(n) 
(0) 

(p) 

(q) 

(r) 

(s) 

(t) 

(u) 

(v) 

(w) 

(x) 

(y) 

(z) 

(O 

n 

a) 

(j) 
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. Hex. Char. 




' Sex. 


Char. 


128 


80 


END 


171 


A3 


GOTO 


214 


D6 


FRE 


129 


81 


FOR 


172 


AC 


RUN 


215 


D7 


SCRN( 


130 


82 


NEXT 


173 


AD 


IF 


216 


18 


PDL 


131 


83 


DATA 


174 


AE 


RESTORE 


217 


D9 


PCS 


132 


84 


INPUT 


175 


AF 


St 


218 


DA 


SQR 


133 


85 


DEL 


176 


B0 


GCSUB 


219 


DB 


RND 


134 


86 


DIM 


177 


B1 


RETURN 


220 


DC 


LOG 


135 


87 


READ 


178 


£2 


REM 


221 


DD 


EXP 


136 


88 


GR 


179 


B3 


STOP 


222 


EE 


COS 


137 


89 


TEXT. 


180 


B4 


ON 


223 


DF 


SIN 


138 


8A 


PR# 


181 


B5 


WAIT 


224 


E0 


TAN 


139 


8B 


IN# 


182 


B6 


LOAD 


225 


El 


ATN 


140 


8C 


CALL 


183 


B7 


SAVE 


226 


E2 


Pxn:?f 


141 


8D 


PLOT 


184 


B8 


DEF 


227 


E3 


LEN 


142 


8E 


HLIN 


185 


B9 


POKE 


228 


E4 


SIR$ 


143 


8F 


VLIN 


186 


BA 


PRINT 


229 


E5 


VAL 


144 


90 


H®2 


187 


BB 


CONT 


230 


E6 


ASC 


145 


91 


HGR 


188 


EC 


LIST 


231 


E7 


CHR$ 


146 


92 


HCOLORss 


189 


BD 


CLEAR 


232 


E8 


LEFT$ 


147 


93 


HPLOT 


190 


BE 


GET 


233 


E9 


RIGHT$ 


148 


94 


DRAW 


191 


BF 


NEW 


234 


EA 


MID$ 


149 


95 


XDRAW 


192 


C0 


IAB( 


235 


EB 


150 


96 


HTAB 


193 


Cl 


TO 


236 


EC 




151 


97 


HOME 


194 


C2 


FN 


237 


ED 




152 


98 


ROT= 


195 


C3 


SPC( 


238 


EE 




153 


99 


SCALE= 


196 


C4 


THEN 


239 


EF 




154 


9A 


SHLQAD 


197 


C5 


AT 


240 


F0 




155 


9B 


TRACE 


198 


C6 


NOT 


241 


FI 




156 
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